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Wilf Hey 
develops step- 
ping stones to a 
game strategy 
and gets on the 
trail of the worm. 


ing these words during the New Year holiday (I’m a bit 

late for my deadline!) yet I don’t expect any reaction 
from you to reach me for several months. It may be old news 
to you by now, but 26 December 1992 became a significant 
date to programmers. On that day, John Kemeney died in his 
adopted home in New Hampshire. Hungarian-born John, 
along with Thomas Kurtz, had created BASIC in a bid to bring 
a usable programming language to students, way back when. 


NOT THE PARROT SKETCH 

Just a brief riddle for us programming types: 

Question: What is it when you hear a bird saying ‘Awk! Pieces 
of nine! Pieces of nine’? 

Answer: A parroty error. 


DOWNCOUNTING GAMES 

Not long ago a young programmer approached me with a 
game he had programmed; not a shoot-em-up, but a simple 
game that you played against the computer alternately remov- 
ing counters from an imaginary pile. The pile always 
contained 40 counters, and each player (human and com- 
puter) was permitted to take his choice of one, two or three 
counters at a time: the winner was the one who took the last 
counter from the pile. 

The program was simple and direct: the game is quite well 
known; often this type of game is called NIM. He had incor- 
porated some delightful touches, but the method for winning 
is well known and unlikely to be too interesting to anybody 
who has played the game before. 

But it got me to thinking: the game becomes a lot more 
interesting (and far from easy) if you change the rules some- 
what. I have thought of two variants we could discuss here; 
let’s see how well you can incorporate the ideas into your 
own versions of the game. Prizes for the best are two copies 
of Clockwork Software’s FromBAT language, and two one- 
year subscriptions to PC PLUS. 

My first variant is quite simple: of course we should be 
able to modify the goal: not just 40 counters, but any appro- 
priately large number would be interesting — chosen at 
random, perhaps? Then I suggest that in a similar way, three 
different choices should be selected (in the range one to 


\ s regular readers know I live in a time warp; I am writ- 
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nine). For example during one particular run, the program 
may offer a pile of 55 counters, and allow each player to 
remove two, three or six counters per turn. 

Some games may end with ties: for example in this new 
version of the game there is no valid move when there is only 
one counter left. Should this be counted as a lost game for the 
person who can’t move, or as a drawn game? It’s up to you — 
you're the programmer! 

My second variant is a little more complex: it involves a 
six-sided die. The idea is that on each turn you get to turn the 
die (tipping it to one side) to reveal how many counters you 
are removing from the pile. (I assume you can see the number 
you are tipping it to). 

If the die has a four on its upturned face, tipping it can 
bring numbers one, two, five or six to the top — but not three 
or (again) four. Suppose you tipped the die to show six: now 
the computer can — on its turn — tip the die to a face showing 
two, three, four or five only. 

There is a winning strategy for this game; it is not up to 
chance. You can create a program in which the computer is 
bound to win — whatever the goal is, whatever the initial face 
of the die is, whether the human goes first or second — unless 
the human player knows the winning strategy. 


HOW TO DEVELOP THE STRATEGY 


The original game of NIM can be won by an easy strategy: 


(1) If the computer goes first, simply note how many counters 
it takes on each turn: if it takes ONE counter, take THREE; if it 
takes TWO counters, take TWO as well; if it takes THREE 
counters, take ONE. 


(2) If you have to go first, take ONE counter only (this makes 
the game longer, giving more of a chance for the other player 
to make a ‘mistake’). If the computer takes THREE counters in 
response, take ONE again — still waiting for the other player to 
make a mistake. If the computer takes ONE or TWO counters, 
take TWO or ONE in response: now you are on the winning 
track, and following step 1 from now on, you will win. 


Using this method will bring you to ‘stepping stones’ in the 
course of the game: whenever the number of counters in the 
pile is a multiple of four, using strategy step 1 will deliver you 
to a well-deserved win. 

The variants of the game require more analysis. Finding the 
‘stepping stones’ on the way to the goal is more tricky, but it 
is still the best method I know. 

The easiest way I’ve found to analyse this sort of game is 
to work backward from a winning position. Let’s suppose that 
our rules allow us to take one, three or four counters when 
it’s Our turn. 

When there are no counters in the pile and it is our turn, 
the computer has just won: so this is a LOSS to us. When 
there is one counter in the pile, it is a WIN: why? — because 
we can take one counter and leave the computer with a LOSS 
choice before it. Taking more counters when there is only one: 
is of course impossible. 

When there are three or four counters, there is also a win- > 
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ning move: when there are two counters, the only possible 
move (taking one) leaves the computer with one counter — a 
situation we have already labelled as a WIN. 

Now we are able to see how we can work backwards, 
adding counters to the pile instead of subtracting: if any of the 
possible moves leads to a LOSS position, this is itself marked 
as a WIN. If all the possible moves lead to a WIN position, 
this is itself marked as a LOSS. 


removel remove 3 remove 4 
pile 
0 LOSS : 
1 WIN Ww 
2 LOSS iY : 
3 WIN W Ww 
4 WIN i L WwW 
5 WIN L Ww L 
6 WIN L i WwW 
7 LOSS Li L if 
8 WIN W L a 
9 LOSS L L E 
10 WIN W W bi 


You can easily extend this back to accommodate any start- 
ing size for the pile. In this table we have worked backward 
to ten counters, and found ‘stepping stones’ at ten, eight, six, 
five, four, three counters, and one. Note that if you found 
yourself on stepping stone ten, you could keep your balance 
by removing either one or three counters — but removing four 
would allow your opponent (if he knew the strategy) to reach 
the next stepping stone himself and make you wade across to 
an eventual loss. 

There is a mathematical way to work out a repeating strat- 
egy — except for close to an exhausted pile. See if you can 
work out what it should be. Suffice it to say that you will 
notice a pattern repeating among the stepping stones — differ- 
ent for every set of rules, of course. 

It shouldn’t be too difficult for you to work out a program 


_ASSEMBLY CHALLENGE _ 


Just before the Christmas and New Year's holiday | gave some of my 
programmer friends (who use assembler language) a little present: a 
challenge to produce the shortest routine that would convert a nybble 
(four bits) in the lower part of the AL register into a byte filling the 
same register: the byte must be the ASCII character representing the 
hexadecimal value of the nybble. 

If the nybble contained hex value 08, the routine should put [8] into 
AL: if the nybble contained OE, | wanted [E] in AL. Nobody who 
responded arrived at a better answer than the one | had in mind - and 
one regular reader chickened out, sending me a greeting card — 
ing ‘not to bother’ me over the holiday! 


Here's my best solution: 
ADD AL,90h 
DAA 


ADC AL, 40h 
DAA 


and here are the results of typical values at each step. 
ADD AL,90h DAA 


90 90 nc 
1 91 nc 
99 99 nc 
9A 00 cy 
9B 01 cy 


oF 05 cy 


's six bytes - and only four inethdctions; ck execited once. 1 
Pale Sek you can get more elegant code than that. 


to play all sorts of games like Variant 1: it would probably 
consist of three parts: : 


(1) decide the rules, pile size and who is going to start 
(2) work out the winning strategy (using an array) 


(3) play the game: obviously the computer will try to stay on 
the stepping stones. 


Ideally the computer will work out the best moves to get 
onto the stepping stones: for example if ten counters are left 
in the version of the game used earlier, both removing one 
and three counters are good moves. Playing the game would 
involve counting the best moves available and then choosing 
between them at random. If the position is a loss (so you are 
not on a stepping stone) it is probably best to take the least 
number of counters possible, because this prolongs the game. 

Remember that the human possibly won’t even know how 
to work out the winning strategy; as soon as he makes a sin- 
gle mistake, the computer can get onto a stepping stone, and 
its victory is guaranteed. Maybe it would be more sporting for 
the computer to make random bad moves — you could choose 
to make the computer an 85 percent perfect player — or even 
vary the percentage (during step 1 of the program) to make it 
more interesting. 


NOW FOR THE CATCH 

If you care to work out the same strategy for the second vari- 
ant of the game (with a die) you will find that the method in 
step 2 is nearly the same — but it involves three interlocking 
arrays instead of one! This arises because there are four 
choices for the number of counters to be removed, but there 
are three different sets of four (depending on the face on top 
of the die). This amounts to three different sets of rules, which 
switch back and forth between each other. Try it out, and see 
how the stepping stones occur in the three different arrays. 


Face: 3,4 Face; 2,5 Face: 1,6 
1425-5. 6, RES BS) PDN oe ee) 
PILE 
rE) craters 2 2 CE oe wine = (ZL) i: 
1 ONO i CWO ree ses ogs ‘Sis eaere 
25> - CRONE. Ww) W. Ww) W. 
3. SGD ea. WLW. WLW. 
Aaa raly:: Ly (WLLL W. WLLL W. 
Soe OW LL We WL WL (WLLL W 
“oie OS FG Bg Od BEA 2 WLWLW WL WL L 


Note that if two (or five) is showing on the die, we start 
with the middle array. Suppose there are six counters in the 
pile: removing three counters (it says) would be a win — why? 
Well as soon as the die is turned to show three on its face, we 
must swap over to the left-hand array, where three is a ‘step- 
ping stone’ because it leaves our opponent in a losing 
position. It was actually easier, I found, to program these 
arrays than to tabulate them by hand for this article! Want to 
try, and send in your program? 

Again, even with this more complicated version of the 
game, a pattern of stepping stones will emerge. I do not sug- 
gest you try to work out the pattern: it will suffice in practice 
to build the array until there are sufficient counters in the pile. 


WORM TRACKS 

Pat Beltar (Cardiff) has sent me a Pascal program that features 
a snake crawling at random over the computer screen (plus a 
few other little tricks). With a tip of my hat in Pat’s direction, I 
have adapted this little program into GW-Basic to make it 
accessible to more readers: I amplified it in certain ways, and 
what resulted was a snake that looks much more like a worm 
— so you will find it as WORM.BAS on this month’s SuperDisk. 
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worm bones); the numbers on the left are actually the final 
ones, including all my changes... but this is the simple pro- 
gram itself. 


100 RANDOMIZE TIMER 

110 CLS 

120 DIM XC(30), YC(30) 

130 XMAX = 640: YMAX = 200 

140 xXC(0) = XMAX / 2: YC(0) = YMAX / 2 

150 SCREEN 2 

160 WHILE 1 

1L70=X"="Xe (CHIP) = =~ ="VC(CHIEP) 

180 CLIP = CLIP MOD 30 + 1 

190 CIRCLE(XC (CLIP) , YC(CLIP)),5,0 

200 DIR = DIR + 5.933185 + .7 * RND 

210 WHILE DIR > 6.284: DIR = DIR — 6.283185: WEND 

230 XC(CLIP) = (X + 5*COS(DIR) + XMAX) MOD XMAX 

240 YC(CLIP) = (Y + 5*SIN(DIR) * YMAX/XMAX + 
YMAX) MOD YMAX 

250 CIRCLE(XC(CLIP) , YC(CLIP)),5,1 

280 WEND 

290 END 


A little explanation is needed here: our worm is actually made 
up of 30 tiny circles. Our two arrays identify where the worm 
is — XC tells the X coordinate of the centres of the circles, and 
YC tells the Y coordinate — as you can see in the two circle- 
drawing commands in lines 190 and 250. The numbers in lines 
200 and 210 calculate a random change to the angle in which 
the worm is travelling. Don’t worry about the SIN and COS in 
lines 230 and 240: this is a standard formula to make sure that 
the length of the worm doesn’t change drastically when he 
goes in different directions (a thing you missed, Pat). These 
lines calculate a new XC and YC value the right distance in 
the new direction. DIR is a number (of Radians) which 
describes a particular direction: it should never be more than 
about 6.284 (two times pi), which is equivalent to 360 
degrees, so line 210 is there to make sure it doesn’t get too 
high. Note that line 210 is a WHILE/WEND loop simply 
because MOD works only with integers (which, I hope, 
answers one of your problems, Pat). 

The MOD functions in lines 230 and 240 simply make sure 
that the worm doesn’t crawl off the screen: he just crawls back 
on the other side! 

This runs, but the worm looks cartoony, and crawls very, 
very fast! I fleshed out the worm with the following changes: 


190 GOSUB 300 

250 GOSUB 300 

300 FOR E2105 

310 CIRCLE (XC(CLIP) ,YC (CLIP) ) ,1,OFFON 
320 NEXT 

330 OFFON = 1 — OFFON: RETURN 


The original program worked by drawing a new circle at the 
head end of the worm (line 250) and erasing an old circle at 
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the tail end (line 190): this change draws (or deletes) five con- 
centric circles with different radii: this makes a ‘blacked in’ 
solid figure — and at the tail end something that looks like a 
pair of pigtails! Note that when line 190 is executed, OFFON 
will be zero (so the circles will be deleted); when line 250 is 
executed, OFFON will be one (so the circles will be drawn). 
The little worm’s breakneck speed is controlled by adding 
one line, and a second line allows us to break out of the pro- 
gram with a simple press of the [Esc] key (much better than 333 
[Ctrl]-[Break] to my mind!) 
260 SOUND 32767,1 
270 IF INKEYS = CHR$(27) THEN SYSTEM 


The worm will start in the middle of the screen (crawling out 
of a hole) and then wander around the place. 

At one time during the development of this program I had 
miskeyed the numbers associated with DIR. How could I 
study what was wrong, and debug it? I settled on the follow- 
ing method.. 


220 LOCATE 1,1: 
PRINT DIR 


PRINT SPACES (14): LOCATE 1,1: 


This is a programming trick I find not everybody knows. This 
displays the value of DIR in the top left corner of the screen 
and updates it without scrolling. You can, of course, LOCATE 
to other places on the screen. At first, you notice, I clear out 
the old value of DIR — because the new value may be shorter, 
and the residue of the longer old value will clutter the screen. 
This is especially important with Scientific Notation, where the 
number may become small and produce an E that may other- 
wise go undeleted. 

One of Pat’s problems was in displaying a sort of slime 
trail, showing where the worm had gone. Originally there was 
an extra line, corresponding to the GW-Basic instruction: 


195 CIRCLE(XC (CLIP) , YC(CLIP)),1,1 


Cf you insert this line, don’t forget to delete it later — it doesn’t 
do the job). The intention was to write a single dot at the cen- 
tre of the tail-circle that had just been deleted. This only rarely 
seems to work — and Pat asked me to try to find out why. 
Perhaps you would like to try it and think why only a few 
dots get left in the worm’s trail. Well the reason is this: the 
code is potentially correct: it will leave a dot all right — but 
unless there is a very sharp turn (or the screen edge is 
reached) that dot will soon become part of the tail circle — and 
get deleted after all! 

I was about to embark on composing code to leave a trail 
as Pat wanted, but then a thought occurred to me. Regular 
correspondent Chuck Pettitt (who is writing a book on Visual 
Basic which is soon to be published by Future Publishing) 
had re-converted my code into Visual Basic 2: 1 adjusted it in 
various ways; I noted that if I start with a non-white back- 
ground, the worm now leaves a bright, glistening white trail of 
slime — problem solved! 

Have a study of this code and see if you can come up with 
some useful ideas you can employ elsewhere. The source 
code is on the SwperDisk — and there’s a working version of 
Visual Basic 2 as well! 

It’s my firm belief (and experience) that such study yields 
benefits that can appear in serious programs as well as games, 
and in virtually any programming language, except APL and 
FORTH, I suppose. @ 


Tips, arguments and ideas are gratefully received by 
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